home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4626 / custom5.b / stoschng.bas (.txt) < prev   
Atari STOS Basic  |  1987-04-21  |  4KB  |  110 lines
  1. 10 REM STOS message changer
  2. 100 IF
  3. 1000 REM Use a binary file editor to either change others or get the offsets.
  4. 1010 UNKNOWN OP: 0x3A
  5. 1020 DATA
  6. 1030 DATA
  7. 1040 DATA
  8. 1050 DATA
  9. 1060 DATA
  10. 1070 DATA
  11. 1080 DATA
  12. 1090 DATA
  13. 110 OPEN IN
  14. 120 RESERVE
  15. 130 UNKNOWN OP: 0x3A
  16. 140 REM Get the fileselector stuff and poke it
  17. 150 UNKNOWN OP: 0x3A
  18. 160 FOR
  19. 170 READ
  20. 180 IF
  21. 190 IF
  22. 20 REM Adjust wording and extensions to your own preferences and                       run this program
  23. 200 GOSUB
  24. 210 NEXT
  25. 220 UNKNOWN OP: 0x3A
  26. 230 REM Get the recognised file types and poke em in!
  27. 240 UNKNOWN OP: 0x3A
  28. 250 FOR
  29. 260 READ
  30. 270 VARNAME
  31. 280 IF
  32. 290 VARNAME
  33. 30 UNKNOWN OP: 0x3A
  34. 300 GOSUB
  35. 310 NEXT
  36. 320 UNKNOWN OP: 0x3A
  37. 330 REM Get the error messages and thrust 'em manfully into the required areas.         In this example there are four messages, hence the for t=1 to 4.                If you add more then increase the four to whatever the number is!
  38. 340 UNKNOWN OP: 0x3A
  39. 350 FOR
  40. 360 READ
  41. 370 IF
  42. 380 IF
  43. 390 GOSUB
  44. 40 REM           DO NOT WRITE TO YOUR MASTER DISK!
  45. 400 NEXT
  46. 410 UNKNOWN OP: 0x3A
  47. 420 BSAVE
  48. 430 PRINT
  49. 440 END
  50. 450 UNKNOWN OP: 0x3A
  51. 460 REM poke information
  52. 470 UNKNOWN OP: 0x3A
  53. 480 VARNAME
  54. 490 INC
  55. 50 UNKNOWN OP: 0x3A
  56. 500 POKE
  57. 510 NEXT
  58. 520 PRINT
  59. 530 RETURN
  60. 540 UNKNOWN OP: 0x3A
  61. 550 REM The following data statements hold the text that will be placed into the        compiler. Keep the lengths the same! Error checking is made but you             never know what could go wrong!
  62. 560 REM the format is:                                                                                Message$,                                                                       Offset value from start of file,                                                Maximum size of the string
  63. 570 UNKNOWN OP: 0x3A
  64. 580 REM File selector information
  65. 590 UNKNOWN OP: 0x3A
  66. 60 REM AULD BASTID 1994
  67. 600 DATA
  68. 610 DATA
  69. 620 UNKNOWN OP: 0x3A
  70. 630 DATA
  71. 640 DATA
  72. 650 UNKNOWN OP: 0x3A
  73. 660 DATA
  74. 670 DATA
  75. 680 UNKNOWN OP: 0x3A
  76. 690 DATA
  77. 70 UNKNOWN OP: 0x3A
  78. 700 DATA
  79. 710 UNKNOWN OP: 0x3A
  80. 720 DATA
  81. 730 DATA
  82. 740 UNKNOWN OP: 0x3A
  83. 750 DATA
  84. 760 DATA
  85. 770 UNKNOWN OP: 0x3A
  86. 780 DATA
  87. 790 DATA
  88. 80 KEY
  89. 800 UNKNOWN OP: 0x3A
  90. 810 REM Flash declaration for the cursor flash. MUST HAVE 16 STEPS!
  91. 820 UNKNOWN OP: 0x3A
  92. 830 DATA
  93. 840 DATA
  94. 850 UNKNOWN OP: 0x3A
  95. 860 REM Recognised file extensions
  96. 870 REM Format: file extension, offset from start of file: Must be lower case!
  97. 880 UNKNOWN OP: 0x3A
  98. 890 DATA
  99. 90 VARNAME
  100. 900 DATA
  101. 910 DATA
  102. 920 DATA
  103. 930 DATA
  104. 940 DATA
  105. 950 DATA
  106. 960 DATA
  107. 970 DATA
  108. 980 UNKNOWN OP: 0x3A
  109. 990 REM These next statements change what error messages are printed when errors        occur. I've not programmed them all; 1) I'm lazy 2) there's 86 of 'em!          I've listed the most common errors that come up in my programming tasks,        Only four 'cos I'm a genius (Not!)
  110.